home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / dtype / aiffdt41.lha / aiffdt41 / Install < prev    next >
Text File  |  2002-05-17  |  473b  |  34 lines
  1.  
  2. (set @default-dest "SYS:classes/datatypes")
  3.  
  4. ;--- check os version ---
  5. (set #vernum (getversion "exec.library" (resident)))
  6. (set #vernum (/ #vernum 65536))
  7.  
  8. (if(< #vernum 39)
  9.     (abort "You need OS3.x")
  10. )
  11.  
  12. ;--- lets rock ---
  13.  
  14. (copyfiles
  15.     (source "aiff.datatype")
  16.     (dest @default-dest)
  17. )
  18.  
  19. (if (not (exists "DEVS:DataTypes/AIFF") )
  20. (
  21.     (copyfiles
  22.         (source "AIFF")
  23.         (dest "DEVS:DataTypes")
  24.     )
  25.  
  26.     (copyfiles
  27.         (source "AIFF.info")
  28.         (dest "DEVS:DataTypes")
  29.     )
  30. )
  31. )
  32.  
  33. ;--- eof ---
  34.